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The Unisys Operating System/3 (OS/3) American National Standard 
COBOL language is fully described in the OS/3 1974 American National 
Standard COBOL Programming Reference Manual (UP-8613). 


COBOL Character Set 







COBOL Character Set in Collating Sequence 


Card 
Name Symbol | encoic | Code 
Space bl ank 40 
or 8 


Period, 
decimal point 










Source Language 
Usage 





Punctuation, 
editing 










Punctuation, 
editing 


Punctuation, 
grouping 













Editing, 
arithmetic 












Asterisk, 
multiplication sign, 
comment line 


Editing, 
arithmetic 


Punctuation, 








grouping 


(cont inued) 
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COBOL Character Set 


















Source Language 
Usage 





88-Col. 
Card 
Code 


0-8-3 









Minus, hyphen, 
continuation line 


Words, editing, 
arithmetic 









Slash, 
division sign 


sreeter than 
Apostrophe ®@ 


jeuctarion 
thru thru 


Letters 

thru 

I 49 12-9 
Letters J D1 4A 11-1 

thru thru thru thru 

R 09 52 11-9 
Letters E2 thru! 53 thru @-2 thru | Words, 

E9 5A Q@-9 (Z for editing) 

Numbers @ thru | F@ thru; 30 thru | @ thru 9 | Words, editing, 

9 F9 39 arithmetic 


@) Single quote used as quotation mark for Unisys extension to American National Standard COBOL. 


Arithmetic, 
editing 


jek codes 
Punctuation, 


[eee | petetion 
27 | 83 | Pumetuation 


41 12-1 









Relation, 
punctuation 





7D 
7E 
TF 


. 
~] 


Symbol 
/ 
> 
A 





Words, 
(DB for editing) 





Words, 
(CR for editing) 








Note: Any character can be used as data, but the 1974 American National Standard COBOL source language uses 
only those shown. 
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Summary Notation 





Summary Notation 


Key words (that is, words that result in action by the compiler) are 
capitalized and underscored. 


Optional words (that is, words included for readability only) are 
capitalized, but not underscored. 


Brackets [ ] enclose words, phrases, or clauses that may be omitted if 
their functions are not required. 


Braces {} indicate a mandatory choice of variant forms or functions. 
When braces or brackets enclose a portion of a format showing only one 
possibility, the function of the braces or brackets is to delimit that 
portion of a format to which a following ellipsis applies. 


Ellipses ... indicate repetition of elements enclosed in the preceding 
pair of brackets or braces. 


The punctuation characters comma and semicolon are shown in some 
formats. They are optional and may be included or omitted by the user. 
In the source program, these two punctuation characters are 
interchangeable and either one may be used anywhere one of them is 


shown in the formats. Neither one may appear immediately preceding 
the first clause of an entry or paragraph. 


If desired, a semicolon or comma may be used between statements in 
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the procedure division. 
Lower case represents generic terms that must be supplied by the user. 


Periods must be used where shown and must also appear at the end of 
each paragraph. Statements that do not contain periods on the 
reference card must be followed by a period when used at the end of a 
paragraph. 


Level 2 module specifications for 1974 American National Standard 
COBOL are enclosed in 


Summary Notation 


e nln extensions to American National Standard COBOL are enclosed 


Se ee 


¢ Default values are shown by shading |). 





Rules and Suggestions for Efficiency 


¢ Use legal abbreviations for reserved words to reduce compilation time, 
for example, PIC instead of PICTURE. 


¢ Use relational operators instead of relational clauses. 
e Avoid needless qualification and/or subscripting. 
¢ With ADD, SUBTRACT, IF, and MOVE: 

- use same size sending and receiving fields; 


- align decimal positions of sending and receiving fields. 





°¢ Use indexing instead of subscripting whenever possible. 
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Figurative Constants 


Figurative Constants 


ZERO 
ZEROS 
ZEROES 
QUOTE 
QUOTES 


HIGH-VALUE 
HIGH-VALUES 


LOW-VALUE 
LOW-VALUES 


ALL literal 


SPACE 
SPACES 
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0 or 0’s; DISPLAY mode = code FO (EBCDIC) or 
30 (ASCID COMPUTATIONAL mode = binary 0 


code 7F (EBCDIC) or 22 (ASCID; 
apostrophe is the generated character 


code FF (EBCDIC) or 7F (ASCII) 
code 00 (lowest value in collating sequence) 
a sequence of any nonnumeric literal or figurative 


constant 


blank character(s): code (EBCDIC) or 20 (ASCII) 


Picture Symbols 


Picture Symbols 


Description 


A numeric character. Used in 
combination with P S$ V 


An operational sign is 
associated with the data item. 
Used in combination with 
PVOH 


Assumed decimal point in data 
item. Used in combination with 
any symbol except A and X. 
Redundant with P. 


Assumed decimal point outside 
of data item. Each P represents 


one character position. Used in 
combination with any symbol 
except A and X. 


Signifies floating point. Used 
in combination with V+-9 


An alphabetic character or 
space. Used in combination 
with X9B 0 


An alphanumeric character. Used 
in combination with A 9 BO 


Suppression of leading 9's 
(replaced by blanks or spaces). 
Used in combination with any 
symbol except * A X S H or more 
than one $ + or — 


Special Picture Position 


Can be preceded only by H. 
Only one S is permitted. 


Only one is permitted. Can 
precede leading P or follow 
trailing P. 


Must be first or last symbol 
or symbols of PICTURE except 
for X, CR, D3, V, or single +, 
-, or $ but cannot be both 
first and last. 


Left of E is mantissa. Right 
of E is exponent. 


Can be preceded only by V. , 
$+-—- PB ®@ (zero) 





(cont inued) 
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Picture Symbols 





(continued) 


Picture 


Symbo | 


(per tod) 
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Description 


Check protection, replaces 
leading @'s with asterisks. 
Used in combination with any 
symbol except Z A X S H or more 
than one S or . 


Insert comma in character 
position unless the preceding 
position has been blanked. Used 
in combination with any symbol 
except AX S i 


Actual decimal point to be 
inserted in character position 
unless following positions have 
been blanked. Used in 
combination with any symbol 
except AX PVSH 


Insert a blank or space in 
character position. Used in 
combination with any symbol 
except S and H 


Insert the two characters CR if 
data item is of negative value; 
insert two blanks or spaces if 
value is positive. Used in 
combination with: Any symbol 
except AX +-SDBH 


Special Picture Position 


Can be preceded by -+.,VS 


P B @ (zero) 


May not be Last character 


Must be last symbol except for 


Por V. 





(cont inued) 


Picture Symbols 


(cont inued) 


Picture 


$ 
(currency 
sign) 


Description 


Insert the two characters DB if 
data item is of negative value; 
insert two blanks if value is 
positive. Used in combination 
with any symbol except A X + - 
S CR H 


Insert $ sign in character 
position. If more than one, 
indicates floating $ sign. Used 
in combination with any symbol 
except that one $ cannot be 
used with A X S H; more than 
one $ cannot be used with SHA 
X * Z or more than one + — 


Insert @ in character position. 
Used in combination with any 
symbol except S and H 


Insert + in character position 
if data item value positive; 

~- if value negative. If more 
than one +, indicates floating 
Sign. Used in combination with 
any symbol, except one + cannot 
be used with A X — S CR DB H; 
more than one consecutive + 
cannot be used with A X — S$ CR 
DB Z H * or more than one $ 
Sign. 


Special Picture Position 


Must be last symbol except for 
Por V. 


Must be first symbols when 
more than one except for 
single + or ~ P B @ (zero). If 
only one used, it can only be 
preceded by + -— or Por V. 


If only one + is used, it must 
be either first or last except 
for P or V. If more than one + 
is used, it must be first 
symbol except for the $ sign. 





(continued) 
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Picture Symbols 





(continued) 


Picture 
Symbo | 


(minus) 
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Description 


Insert — in character position 
if data item value negative, 


blank if positive. If more than 
one —-, indicates floating sign. 
Used in combination with any 
symbol, except one — cannot be 
used with AX + S$ CR DB* ZH 
or more than one $ sign. 





Special Picture Position 


If only one — is used, it must 
be either first or last except 
for P or V. If more than one — 
is used, it must be the first 
symbol except for the $ sign. 


Arithmetic Expressions 





Arithmetic Expressions - Sequence of Symbols 


p Second mbt p Second mbt 
Variable 
(identifier Unary + 
First Symbol or literal) | * / ** + - | Unary - 









Variable (identifier or 
literal) 


Ce eS Ce 
Cieiincns SE 
Permitted combination @ 


i Not permitted 









Arithmetic Operators 


Addition 
Subtraction 
Multiplication 
Division 
Exponentiation 


The effect of multiplication by numeric literal +1 





The effect of multiplication by numeric literal —1 
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Arithmetic Expressions 





Order of Evaluation for Arithmetic Expressions 


Complex Expressions: 


Innermost to outermost nested parentheses 
Simple Expressions: 

1st Unary plus and minus 

2nd = Exponentiation 

3rd Multiplication and division 


4th Addition and subtraction 


Evaluate from left to right for operators at the same ltevel. 





Permitted Data Categories in Move Statements 


Receiving Data Item 
Sending Data Item Alphabetic | Alphanumeric 





Alphabetic 

Al phanumer ic 
Alphanumeric edited 
Numeric integer 
Numeric noninteger 
Numeric edited 


P Permitted 
blank Not permitted 
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Special Level Numbers 
Special Level Numbers 


Entries using RENAMES clause to regroup data items e 


Entries specifying noncontiguous working storage and linkage data 
items 


Entries that specify condition-names to be associated with specific 
values of a conditional variable 





Data-Item Relationships 


eee] ee [en 
Elementary Alphabetic Alphabetic 


Alphanumer ic 










Numeric edited 
Alphanumeric edited 
Alphanumer ic 











Alphabetic 
Numer ic 
Numeric edited 
Alphanumeric edited 
Al phanumer ic 


Alphanumeric 
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Picture Characters 





Picture Characters 


@ Data Character Symbols Operational Symbols 


Alphabetic Operational sign 

Al phanumer ic Assumed decimal point 

Numeric Scale factor 
Exponent 


Space Numeric char. or * 
Numeric char. or space Plus or minus sign 
zero Minus sign or space 
Stroke char. Credit symbol 

Comma | Debit symbol 
Decimal point Currency symbol 
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Control Division - Basic Format 


Control Division - Basic Format 


The control division is required only when the non-English language feature 


is used. e 


CONTROL DIVISION. 
| |ALPHABET SECTION. | 


| scunce-aueunser CHARACTERS ARE | 





| Literal-1| f THROUGH ) Literal -2 | 
THRU 





| Literal-3] {THROUGH ) titerat-4] |... | | | 
THRU 





{MESSAGES ARE al ternate-text-module-name]. 
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Identification Division - Basic Format 


identification Division - Basic Format 


Comments may be included in this division by entering an asterisk (*) in 
& column 7 of each line of comment coding 


A B 
8 12 


IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 
[AUTHOR. ({comment-entry]...] 
(INSTALLATION. [comment-entry]...] 
{DATE-WRITTEN. {comment-entry]...] 


[DATE-COMPILED.fcomment-entry]...] 


[SECURITY.[comment-entry]...] 
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Environment Division - Basic Formats 


Environment Division - Basic Formats 


A B 
8 12 eS 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. { UNISYS-OS3 
SPERRY-0S3 
UNIVAC-OS3 
{WITH DEBUGGING MODE]. 
OBJECT-COMPUTER. { UNISYS-OS3 
SPERRY -OS3 
UNI VAC-0S3 


,MEMORY SIZE integer { CHARACTERS 
MODULES 
WORDS 


[, PROGRAM COLLATING SEQUENCE IS 
alphabet -name] 


[,SEGMENT-LIMIT IS segment-number]|. 
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oOo > 
Le) 


12 


SPECIAL-NAMES. 
[SYSIN IS mnemonic-name- 1] 
[,SYSCGNSOLE IS mnemonic-name-2] 
C,SYSLST IS mnemonic-name-3] 
{,SYSLOG IS mnemonic-name-4] 
[,SYSCHAN-n IS mnemonic-name-5] 
(,SYSCOM IS mnemonic-name-6] 
[,SYSSCOPE IS mnemonic-name-7] 





; | SYSTERMINAL! IS mnemonic-name-8 
SYSOUT 


, | SYSFORMAT | IS mnemonic-name-9 
SYSWORK 


ASSIGN TO Lfdname 


CONTROL AREA IS data-name 


|| {WITH FUNCTION KEYS] 
[WITH CONNECT-FREE} 


, (SYSSWCHE-n] 
SYSTEM- SHUTDOWN 


Environment Division - Basic Formats 


IS mnemonic-name,ON STATUS IS condition-name 


,QFF STATUS IS condition-name 


IS mnemonic-name,OFF STATUS IS condition-name 


,ON STATUS IS condition-name 


}) ON STATUS IS condition-name,OFF STATUS IS 


condi tion-name 


OFF STATUS IS condition-name,ON STATUS IS 


condi tion-name 


Y 
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(continued) 
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Environment Division - Basic Formats 


(cont inued) 





,alphabet-name IS / STANDARD- 1 
NATIVE 
STANDARD-@ 


THRU 
ALSO literal-3 [,ALSO 
Literal-4]... ee 


literat-1 Sonn literal -2 


lLiteral-5| [ THROUGH | literal-6 aor 
tra | 
ALSO literal-7 [,ALSO 
literal-8]... 





[CURRENCY SIGN IS literal-9) © 
[,DECIMAL-POINT IS COMMA) 
,CLASS-NAME IS mnemonic-name (1) | 


VALUE IS literal-1| (THROUGH) literal -2 | 
THRU 


literal-3] { THROUGH ) Literal-4/ |... re 
THRU 





(1) This clause is used when non-English language feature is used. 
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Format 1 (Sequential Files) 


A B 
8 12 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 


SELECT |COPTIONAL)} file-name 


ASSIGN TOf CARDREADER- | fdname-F 
CARDPUNCH -lfdname- { F 


U 

~ 
PRINTER-( fdname- ( FC 
UC 
ve 


TAPE-| fdname- { F 
U 
Vv 
Fc 
UC 
vc 
DISC |- | fdname-/ F 
al v 
FC 
vc 
(continued) 
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Environment Division - Basic Formats 


19 


Environment Division - Basic Formats 





20 


(cont inued) 


~~ 


of CARDREADER- | fdname-F 
CARDPUNCH- l fdname- 


PRINTER- | fdname- 


is |S la 


“eu, eee” 


TAPE - | fdname- 


isis lacie 


DISK 


— 


isla 


7RESERVE integer-1|AREA 


AREAS 





[C ORGANIZATION IS SEQUENTIAL) 
[sACCESS MODE IS SEQUENTIAL] 
[;FILE STATUS IS data-name-1]. 








I< Ic Im 
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Environment Division - Basic Formats 





Format 2 (Relative Files) 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT file-name 
ASSIGN TO {DISC | -\ fdname- (F 
ibis} (uh 


, [| DISC) -lfdname- (FF) ... 
1SK v 








sRESERVE integer-1j)AREA 


AREAS 





ORGANIZATION IS RELATIVE 


;ACCESS MODE IS § SEQUENTIAL [,RELATIVE KEY IS 





data-name- 1] 
RANDOM »RELATIVE KEY 1S 
data-name- 1 


DYNAMIC 


C;FILE STATUS IS data-name-2}. 
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Environment Division - Basic Formats 


Format 3 (Indexed Files) 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 


SELECT file-name 


ASSIGN TO {DISC) -\ fdname- { F 
DISK Vv 


, {DISC ) -lfdname- {F)| ... 
DISK V 


;RESERVE integer-1]AREA 


AREAS 





;ORGANIZATION IS INDEXED 





sACCESS MODE IS / SEQUENTIAL 
RANDOM 


DYNAMIC 


;RECORD KEY IS data-name- 1 


{C;ALTERNATE RECORD KEY IS data-name-2 


[WITH DUPLICATES]] 








CsFILE STATUS 1S data-name-3]. 
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Environment Division - Basic Formats 





Format 4 (Sort or Merge Files) 


A B 
8 12 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT file-name 
ASSIGN TO (DISC ) -l fdneme- {F 
DISK ff 
TAPE 








oO 


bead 


ISC ) -lfdname- (F 
IS Vv 
AP 


iw] 
ras 


— 
mi 


{1-O-CONTROL. 
[; RERUN ON ff ( DISC ) -l fdname- a 
2 


DISK 

TAPE 
ras | 
l fdname 
eee ee | 


EVERY integer-1 RECORDS OF file-name-1] ... 





;SAME | | RECORD AREA FOR file-name-2 
SORT 


SORT - MERGE 





{, file-name-3} ... 


(continued) 
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Environment Division - Basic Formats 





(cont inued) 


C;MULTIPLE FILE TAPE CONTAINS file-name-4 
[POSITION integer-2] ©} 


{,file-name-5 [POSITION integer-3] ] ... 





|| ;APPLY, BLOCK-COUNT ON | 
file-name-6 (file-name-7] ... 
| TAPES 





| ;APPLY CYLINDER- INDEX AREA OF integer-4 | 
INDICES ON file-name-8 [,file-name-9] ... ] ... 

|C;APPLY CYLINDER-OVERFLOW AREA OF integer-5 | 
PERCENT ON file-name-10 {file-name-11] ... ] ... 

| ;APPLY VERIFY ON file-name- 12 | 
(,file-name-13] ... 1]... 

| ;APPLY INDEX-AREA OF integer-6 | 

CHARACTERS ON file-name- 14 

ool eet) Hie Tee J .] | 


eee 
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Data Division - Basic Formats 


A B 
8 12 


DATA DIVISION. 
[FILE SECTION.) 


FD file-name 


BLOCK CONTAINS |{integer-1 TO]| integer-2 


CHARACTERS 
RECORDS 


{[;RECORD CONTAINS [integer-3 TO] integer-4 
CHARACTERS} 
;LABEL {RECORD IS STANDARD 
poo — OMITTED 


VALUE OF 


literal-1 


ees " 


Literal-2 


PASSWORD 18 


Literal -2 


literal-1 
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Data Division - Basic Formats 


(continued) 


25 


Data Division - Basic Formats 





(cont inued) 


DATA [| RECORD IS data-name-3 [,data-name-4]... 
RECORDS ARE 


® 


sLINAGE IS | data-name-5]| LINES 
integer -5 


»WITH FOOTING AT {data-name-6 
integer -6 


,LINES AT TOP. sealers 
integer -7 


,LINES AT BOTTOM {data-name-8 
integer -8 





{ ;CODE-SET 1S alphabet-name] (1) 


SD file-name 
{;RECORD CONTAINS [Linteger-1 TO] 
integer-2 CHARACTERS] 


;DATA {RECORD IS data-name-1 [,data-name-2]... 
RECORDS ARE 


(2) Used only with sequential files 


26 
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Data Division - Basic Formats 





Data Description Clauses 


@ Format 1: 
A B 
8 12 


Level -number enaad ) 
FILLER 
(;REDEFINES data-name-2] 


— G aabieieiite 
Pic 


;CUSAGE IS] §— COMPUTATIONAL 


COMP 

ar ors ei my 
COMPUTATIONAL - 1 

_ | comp- 1 | 
COMPUTATIONAL -2 
| COMP -2 | 
COMPUTATIONAL -3 
| COMP-3 


COMPUTATIONAL -4 


DISPLAY 
INDEX 


(cont inued) 


(1) Level-number 01 is the only level-number that must be started in margin A. Other level-numbers and 
these data description clauses may begin in either margin A or B. 
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Data Division - Basic Formats 


(continued) 


;CSIGN IS] {| LEADING | CSEPARATE CHARACTER] 
TRAILING 


; OCCURS 
integer-1 TO integer-2 TIMES DEPENDING ON data-name-3 
integer-2 TIMES 
ASCENDING } KEY IS data-name-4 [,data-name-5] ... |... 
DESCENDING 


[INDEXED BY index-name-1 [, index-name-2]...] 


T= ——| = ll 


s | SYNCHRONIZED LEFT 
SYNC RIGHT 


ps7 


; | JUSTIFIED | RIGHT 
JUST 


eT 


C(;BLANK WHEN ZERO] 
C;VALUE IS literal]. 


28 
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Data Division - Basic Formats 


Format 2: 


66 data-name-1;RENAMES data-name-2 


THROUGH data-name-3 


THRU 





Format 3: 








VALUE IS 


88 condition-name; 
VALUES ARE 


literal -1 








THROUGH } Literat-2 
THRU 






,titeral-3/ [ THROUGH Literal-4 sate Te 
THRU 





EWORKING-STORAGE SECTION 
[77 data-name; 
(data description clauses).] 
[@1 record-name; 
(subordinate data items and clauses).]] 
[LINKAGE SECTION. 
{77 data-name; 
(data description clauses).] 
(@1 record-name; 
(subordinate data items and clauses.]] 


(continued) 
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Data Division - Basic Formats 


A 8B 
8 12 


[COMMUNICATION SECTION] 


CD cd-name: FOR |CINITIAL]] INPUT 


{{€;SYMBOLIC QUEUE IS data-name- 1] 
(;SYMBOLIC SUB-QUEUE-1 IS data-name-2] 
([;SYMBOLIC SUB-QUEUE-2 IS data-name-3] 
C;SYMBOLIC SUB-QUEUE-3 IS data-name-4] 
[ ;MESSAGE DATE IS data-name-5] 
C;MESSAGE TIME IS data-name-6] 
C;SYMBOLIC SOURCE IS data-name-7] 
{;TEXT LENGTH IS data-name-8] 

(;END KEY IS data-name-9} 
(;STATUS KEY IS data-name- 16] 
{ sMESSAGE COUNT IS data-name-11]] 

[data-name-1, data-name-2,...,data-name- 11] 








CD cd-name; FOR OUTPUT 

{;DESTINATION COUNT IS data-name-1] 

C;TEXT LENGTH IS data-name-2] 

{;STATUS KEY IS data-name-3] 

[CsDESTINATION TABLE OCCURS integer-2 TIMES 

{; INDEXED BY index-name-1 [, index-name-2]...]] 
C;ERROR KEY IS data-name-4] 
C;SYMBOLIC DESTINATION IS data-name-5] 
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Procedure Division - Basic Formats 


Procedure Division - Basic Formats 


Format L: 


PROCEDURE DIVISION usin data-name- 1 ydte-name-23..]. 


(DECLARATIVES. 

{section-name SECTION [(segment-number}. 
declarative-sentence 

{paragraph-name. [sentence]...}...}... 

END DECLARATIVES.] 

{section-name SECTION [segment-number]. 

(paragraph-name. [sentence]...]...}... 


Format 2: 
PROCEDURE DIVISION (USING data-name- 1 


[,data-name-2]...]. 
{paragraph-name. [sentence]...}... 
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Procedure Division - COBOL Verbs 


COBOL Verbs 


ACCEPT identifier | {FROM mnemonic-name] 





ACCEPT identifier-1 £,identifier-2] ... 
| FROM [SPECIFIC] mnemonic-name | 


| USING soa tuali | 
literal 


CON EXCEPTION imperative-statement] 


Sg eet pie es Cerri Speen Ur ee Sree cal 
re oe Aa te ete ge ee ee ce Oe as ~ 
ACCEPT identifier-1 FROM mnemonic-name 

| CON EXCEPTION ahi eeagaaga| 


et ,identifier-2]... 
Literal-1 ,literal-2 


TO identifier-m [ROUNDED] 


[,identifier-n [ROUNDED]]}... 


{;ON SIZE ERROR imperative-statement] 
—— , sailed ,identifier-3]... 


literal-1 Literal-2 ,literal-3 


(continued) 
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GIVING identifier-m [ROUNDED] 


C,identifier-n [ROUNDED]]... 


[;ON SIZE ERROR imperative-statement] 





ADO came identifier-1 TO identifier-2 


CORR 
{ ROUNDED 3 
[;ON SIZE ERROR imperative-statement} 





ALTER procedure-name-1 TO [PROCEED 10] 
procedure-name-2 


{ ,procedure-name-3 TO [PROCEED TO) 


procedure-name-4]... 





CALL | |identifier-1 USING f data-name- 1 , | data-name-2 


ce ] [oe es 1 
Literal-1 cd-name- 1 cd-name-2 
|identifier-2| |identifier-3 
file-name- 1 file-name-2 
epee J as ees cee J 


[;ON OVERFLOW imperative-statement] 


Literal -1 ,literal-2 


CANCEL nsieitordie ,identifier-2 |... 





(continued) 
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(CLOSE file-name-1| (REEL 
UNIT 


WITH NO REWIND 
FOR REMOVAL 


WITH {NO REWIND 
LOCK 


,file-name-2 ferry WITH NO REWIND 


UNIT) |} FOR REMOVAL 





(CLOSE file-name-1 [WITH LOCK] [,file-name-2 
(WITH LOCK]]... 
COMPUTE identifier-1 [ROUNDED] 
(,identifier-2 [ROUNDED)]... 
= arithmetic-expression 
[;ON SIZE ERROR imperative-statement] 


(continued) 


(1) This format is for sequential files. 
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Procedure Division - COBOL Verbs 





COPY text-name OF l ibrary-name 


REPLACING /, ==pseudo- text- 1== 
identifier-1 
literal -1 


word: 1 
==pseudo-text-2== 
identifier-2 
Literal -2 
word-2 


DELETE file-name RECORD 
C;INVALID KEY imperative-statement] 


DISABLE { INPUT ) |TERMINAL| cd-name WITH KEY 
OUTPUT 


— 
literal-1 


Literal-1 ,literal-2 


[UPON mnemonic-name] 


DISPLAY eneiiead ,identifier-2]... 


(continued) 
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| DISPLAY eee ,identifier-2]... | 


literal-1 ,literal-2 
UPON mnemonic -name 


USING ea ei 
literal -3 


| DISPLAY identifier-1] },identifier-2 | 
literal -1 ,literal-2 
UPON mnemonic-name 


—_— eee 


DIVIDE oe a INTO identifier-2 [ROUNDED] 
Literal -1 


[,identifier-3 CROUNDED]].../[;ON SIZE ERROR imperative-statement] 





DIVIDE Jidentifier-i] INTO identifier-2 GIVING identifier-3 [ROUNDED] 
titeral-1 Literat-2 


[,identifier-4 [ROUNDED]].../[;0N SIZE ERROR imperative-statement] 





DIVIDE echt rail BY fidentifier-2] GIVING identifier-3 [ROUNDED] 
literal-1 literal-2 


C,identifier-4 CROUNDEDJ].../[;0N SIZE ERROR imperative-statement] 


(cont inued) 
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DIVIDE Jidentifier-1] INTO [identifier-2] GIVING identifier-3 CROUNDED) 
literal-1 literal -2 
REMAINDER identifier-4 [;ON SIZE ERROR imperative-statement] 


DIVIDE i. oo. | GIVING identifier-3 [ROUNDED] 


lLiteral-1 Literal-2 
REMAINDER identifier-4 [;0N SIZE ERROR imperative-statement] 


ENABLE J INPUT |{TERMINAL]|] cd-name WITH KEY Jfidentifier-1 
OUTPUT literal-1 








Dip hep Te One Ne te tg here ey tent = “I 
EXHIBIT | NAMED identifier 
| CHANGED NAMED Se etal sl 
CHANGED 
ee a a ee ee ee ne eee eer ES _ 


EXIT [PROGRAM] 


GO TO | procedure-name- 1 | 


GO TO procedure-name-1 [,procedure-name-2]..., 
procedure-name-n DEPENDING ON identifier 


ee et ~] 

GO TO MORE-LABELS 

Leese = 
aie 


IE condition | THEN statement-1 
L. _ I} Next SENTENCE 


’ 


sELSE statement-2 
ELSE NEXT SENTENCE 


(continued) 
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INSPECT identifier-1 TALLYING 


,identifier-2 FOR 
‘ a cote te r 


LEADING literal-1 
CHARACTERS 


BEFORE | INITIAL fidentifier-4 
AFTER literal -2 z g 
INSPECT identifier-1 REPLACING 
CHARACTERS BY 


peaiaias me INITIAL facies: 


Literal-4 AFTER Literal-5 
, {ALL , Jidentifier-5 BY fidentifier-6 
LEADING literal -3 literal -4 
FIRST 





BEFORE | INITIAL fidentifier-7 
AFTER literal -5 |. |... 


INSPECT identifier-1 TALLYING 
,identifier-2 FOR 


; ALL identifier-3 
LEADING literal -1 
CHARACTERS 


BEFORE | INITIAL j identifier-4 
AFTER ieagateo | |... 


(cont inued) 
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REPLACING 
CHARACTERS BY 


feeaiodae occ INITIAL ost 


literal-4 AFTER Literal -5 
, {ALL , fidentifier-5] BY Jidentifier-6 
LEADING Literal-3 literal-4 
FIRST 


BEFORE} INITIAL fidentifier-7 
AFTER literal-5 









MERGE file-name-1 ON [ ASCENDING | KEY data-name- 1 
DESCENDING 





{,data-name-2]... 

ON | ASCENDING | KEY data-name-3 [,data-name-4]... ... 
eee 
[COLLATING SEQUENCE IS alphabet-name] 
USING file-name-2, file-name-3 [,file-name-4]... 
OUTPUT PROCEDURE IS section-name- 1 












THROUGH } section-name-2 
THRU 





GIVING file-name-5 





MOVE a identifier-2 {,identifier-3]... 
Literal 


es identifier-1 TO identifier-2 


CORR 
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(cont inued) 
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MULTIPLY fidentifier-1] BY identifier-2 (ROUNDED) 
literal -1 


[,identifier-3 [CROUNDED]}... @ 


([;ON SIZE ERROR imperative-statement] 
MULTIPLY fidentifier-1 a renee 
eanethe literal-2 

GIVING identifier-3 CROUNDED] 


{(,identifier-4 [ROUNDED)]}... 


[;ON SIZE ERROR imperative-statement] 





ON integer-1 [AND EVERY integer-2](UNTIL integer-3] 


statement- 1 (ELSE] {| statement-2 
| NEXT SENTENCE 


NEXT SENTENCE 













CDOPEN F INPUT file-name- 1} |REVERSED 


WITH NO REWIND 













,file-name-2|REVERSED 
WITH NO REWIND 











OUTPUT file-name-3] {WITH NO REWIND} 





C,file-name-4 (WITH NO REWIND}}... 







1/0 file-name-5/[,file-name-6]... 


EXTEND file-name-7 [,file-name-8]... 





(cont inued) 


(1) This format is for sequential files. 
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CA) OPEN ( INPUT file-name-1 [,file-name-2)... 
OUTPUT file-name-3 [{,file-name-4]... 
1-0 file-name-5 [,file-name-6]... 


PERFORM procedure-name- 1 —a 
THRU 


PERFORM procedure-name- 1 ge alae 
THRU 


identifier-1] TIMES 
integer - 1 


THRU 


PERFORM procedure-name- 1 ee 


UNTIL condition-1 





PERFORM procedure-name- 1 og silaaiealablanade 
THRU 


VARYING ae identifier-3 
index-name- 1 index -name-2 
literal -1 
BY {Ident #ter-4) NTL condition-1 
literal-2 


(cont inued) 


(1) This format is for relative, indexed, and sequential files. 
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index -name-4 
literal-3 
BY estore UNTIL condition-2 


index -name-3 


AFTER rite FROM {identifier-6 @ 


literal-4 


AFTER fidentifier-8 ] FR identifier-9 
index-name-5 index-name-6 
Literal -5 


BY Jidentifier-10{ UNTIL condition-3 
Literal -6 





(Q)READ file-name RECORD [INTO identifier} {;AT END 
imperative-statement] 





(2)READ file-name |[NEXT]| RECORD [INTO identifier} 6 


(;AT END imperative-statement] 
(3)READ file-name RECORD [INTO identifier] 
C;INVALID KEY imperative-statement] 


(4)READ file-name RECORD INTO identifier |{;KEY IS data-name] 


Cs INVALID KEY imperative-statement] 





(cont inued) 


This format is for sequential files. 


This format is for relative, indexed, and sequential files. 





This format is for relative files. 


Oe %© © Oo 


This format is for indexed files. 
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RECEIVE cd-name { MESSAGE INTO identifier-1 


SEGMENT 


[;NO DATA imperative-statement] 
RELEASE record-name [FROM identifier] 
RETURN file-name RECORD [INTO identifier] 
;AT END imperative-statement 
(D)REWRITE record-name [FROM identifier) 
(2) REWRITE record-name [FROM identifier] 
C;INVALID KEY imperative-statement] 














SEARCH identifier-1 |VARYING fidentifier-2 
index-name- 1 
C;AT END imperative-statement- 1] 
WHEN condition-1 [ imperative-statement-2 
NEXT SENTENCE 


WHEN condition-2 imperative-statement-3 


NEXT SENTENCE 


SEARCH ALL identifier-1 £;AT END 
Imperative-statement- 1] 
;WHEN {data-name- 1 {r. EQUAL TO 
‘om 
identifier-3 
literal - 1 
ar ithmetic-expression- 1 
condi tion-name- 1 





(cont inued) 


(1) This format is for sequential files. 


(2) This format is for relative, indexed, and sequential files. 
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Is = 
identifier-4 


AND { data-name-2 o EQUAL ie 


literal-2 


arithmetic-expression-2 
condi tion-name-2 


imperative-statement-2 
NEXT SENTENCE 


SEND cd-name FROM identifier-1 





SEND cd-name [FROM identifier-1] BE {WITH identifier-2 


WITH EST 





WITH EMI 


WITH E 


I 


integer 


LINES 


oe | eae | LINE 


PAGE 


identifier-1 (,identifier- ie 
index-name-1 [£, index-name-2]... 


SET index-name-4 [, index-name-5].. 


identifier-4 
integer -2 


index-name-3 
integer -1 


eg 


oe 3 
BY 


SORT file-name-1 ON pean - data-name- 1 


DESCENDING 
{,data-name-2]... 


(continued) 
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ON {ASCENDING | KEY data-name-3 
DESCENDING 


tydata-nane-4...] 


[COLLATING SEQUENCE IS alphabet-name] 


INPUT PROCEDURE !S section-name- 1 
—?. sect ion-name-2 


THRU 


USING file-name-2 |[,filename-3]... 


K PROCEDURE IS section-name-3 





THROUGH | section-name-4 
THRU 


GIVING file-name-4 


START file-name |KEY 4 1S EQUAL TO data-name 
IS = 
IS GREATER THAN 


IS > 
1S NOT LESS THAN 
iS NOT < 


C; INVALID KEY imperative-statement) 





(cont inued) 
(1) This format is for relative and indexed files. 
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Ge ee ee ee | 
|START file-name [KEY (1S EQUAL TO data-nane| | 
IS = 
| IS NOT LESS THAN | 

IS NOT < 


[;INVALID KEY imperative-statement] 


STOP | RUN 
Literal 


STRING fidentifier-1] |,identifier-2 
literal -1 , Literal -2 .-- DELIMITED BY 
identifier-3 


literal -3 
SIZE 


literal -4 


: eeiceeigas ,identifier-5 


,literal -5 .-. DELIMITED BY 


identifier-6 
literal-6 
SIZE 


INTO identifier-7 CWITH POINTER identifier-8] 
[;ON OVERFLOW imperative-statement] 





(cont inued) 


(1) This format is for relative, indexed, and sequential files. 
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SUBTRACT fidentifier-1] |,identifter-2| ... FR 
Literal-1 ,literal-2 


identifier-m [ROUNDED] 


, \dentifier-n [ROUNDED] .. 


C[;ON SIZE ERROR imperative-statement] 


SUBTRACT Jidentifier-1} |, identifier-2]|...FROM 
Literal-1 ,Literal-2 


identifier-m 
Literal -m 
GI 


VING identifier-n [ROUNDED] 





C,identifier-o [ROUNDED]).. 


C;ON SIZE ERROR imperative-statement] 






CORRESPONDING 
CORR 
identifier-2 [ROUNDED] 

C;ON SIZE ERROR imperative-statement] 


SUBTRACT identifier-1 FROM 





ae areal cen nN aa 
READY | TRACE 
E RESET | 
Bee ence igh ieee de te om rene ooo yn Ae Me reg age ~Y 
TRANSFORM identifier-1 [,identifier-2]...CHARACTERS 
| FROM (identifier-3 TO (identifier-4 | 
nonnumeric-literat-1 nonnumeric-literal -2 
| figurative-constant- 1 figurative-constant-2 | 


TRANSFORM identifier-1 [, identi fier-2)...CHARACTERS 
| fON) identifier-5 | 
BY 


(continued) 


UP-8612 Rev. 4 


47 


Procedure Division - COBOL Verbs 


UNSTRING identifier: 1 





DELIMITED BY (ALL) fidentifier-2 
Literal -1 


OR CALL] paineniag 


literal-2 


INTO identifier-4 [,DELIMITER IN identifier-5] 
C, COUNT IN identifier-6] 
{,identifier-7 [,DELIMITER IN identifier-8] 
{, COUNT IN identifier-9] ... 
{WITH POINTER identifier -1@) 
(TALLYING IN identifier-11] 
[;ON OVERFLOW imperative-statement] 





USE AFTER STANDARD =| 








ERROR 
PROCEDURE ON § file-name-1 {[,file-name-2]... 
INPUT 
OUTPUT 
1-0 
EXTEND 





USE FOR DEBUGGING ON 
cd-name- 1 


[ALL REFERENCES OF] identifier-1 


file-name- 1 





procedure -name- 1 
ALL PROCEDURES 





(continued) 
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cd-name-2 


CALL REFERENCES OF] identifier-2 


file-name-2 





procedure-name-2 
ALL PROCEDURES 


USE AFTER | STANDARD |BEGINNING| | FILE | 
BEFORE ENDING REEL 


LABEL PROCEDURE ON 
| file-name-1 [file-name-2] ...). | 
INPUT 


| OUTPUT | 


(WRITE record-name [FROM identifier-1) 


BEFORE | ADVANCING 
AFTER 


integer 


mnemon ic-name 


PAGE 


AT a imperative statement 


EOP 


(1) This format is for sequential files. 
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LINE 
LINES 





(cont inued) 
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1 WRITE record-name (FROM- identifier] 
C;INVALID KEY imperative-statement] 





1 — This format is for relative and indexed files. 
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Miscellaneous Formats 


Miscellaneous Formats 
@ Qualification 


data-name- 1 OF | data-name-2/... 
condi tion-name IN 
paragraph-name OF { section-name 
IN 
text-name {3 l a 
IN 


Subscripting 


data-name (subscript-1[,subscript-2{,subscript-3]]) 
condi tion-name 


6 Indexing 
data-name 
condi tion-name 
index-name- 1 + Literal-2 
literal -1 : 
, J index-name-2 + titeral-4 
literal-3 . 


, J index-name-3 + literal-6 
literal-5 - 
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Miscellaneous Formats 


Identifier 


Format 1 


data-name- 1 ae er 
IN 


[(subscript-1 €,subscript-2 [,subscript-3]])] 


Format 2 


data-name- 1 OF | data-name-2| ... 
IN 
index-name- 1 {*| Literal -2 
literal-1 
, J index-name-2 {*} pees “4 
literal -3 
, J index-name-3 {*} Literal -6 
literal-5 : 


Relation Condition 


identifier-1 IS (NOT) GREATER THAN 
literal-1 IS (NOT) LESS THAN 


IS (NOT) EQUAL TO 
arithmetic-expression-1 





identifier-2 
literal-2 


arithmetic-expression-2 
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Miscellaneous Formats 


Class Condition 


identifier 1S (NOT) { ALPHABETIC 
NUMERIC 





Sign Condition 


NEGATIVE 
ZERO 


arithmetic-expression is [NOT] see | 


Condition-Name Condition 





condition-name 


Switch-Status Condition 


condition-name 


Negated Simple Condition 
NOT simple-condition 
Combined Condition 


condition {{ ane aa “ 
OR 


Abbreviated Combined Relation Condition 


relation-condition et [NOT] [relational -operator] 
OR 





object coe 


(1) This Clause used when the norrEnglish language feature is invoked. 
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Conditional Expressions Sequence of Elements 


Conditional Expressions Sequence of Elements 


Intermediate Position (left-to-right) 
May be immediately | May be immediately 
First | Last | preceded by only: fol lowed by only: 
OR, NOT, AND, ¢ OR, AND, ) 


Cee ee en 
oe fe fame fee 











OR or AND 


C = Simplecondition 





OR, NOT, AND, ¢ C, NOT, ¢ 
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Reserved Words 


ACCEPT 
ACCESS 
ADD 
ADVANCING 
AFTER 

ALL 
ALPHABET 
ALPHABETIC 
ALSO 
ALTER 
ALTERNATE 


AREAS 
ASCENDING 
ASSIGN 

AT 

AUTHOR 


BEFORE 
BEGINNING 
BLANK 

BLOCK 
BLOCK-COUNT 
BOTTOM 

BY 


CALL 
CANCEL 
CD 

CF 

CH 
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Reserved Words 


CHANGED 
CHARACTER 
CHARACTERS 
CLASS-NAME 
CLOCK-UNITS 
CLOSE 

COBOL 

CODE 

CODE-SET 
COLLATING 
COLUMN 

COMMA 
COMMUNICATION 
COMP 
COMPUTATIONAL 
COMPUTATIONAL-1 
COMPUTATIONAL.-2 
COMPUTATIONAL-3 
COMPUTATIONAL-4 
COMPUTE 

COMP-1 

COMP-2 

COMP-3 

COMP-4 
CONFIGURATION 
CONNECT-FREE 
CONTAINS 
CONTROL 
CONTROLS 

COPY 

CORR 
CORRESPONDING 
COUNT 

CURRENCY 
CYLINDER-INDEX 
CYLINDER-OVERFLOW 
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Reserved Words 


DATA 

DATE 
DATE-COMPILED 
DATE-WRITTEN 
DAY 

DE 
DEBUG-CONTENTS 
DEBUG-ITEM 
DEBUG-LINE 
DEBUG-NAME 
DEBUG-SUB-1 
DEBUG-SUB-2 
DEBUG-SUB-3 
DEBUGGING 
DECIMAL-POINT 
DECLARATIVES 
DELETE 
DELIMITED 
DELIMITER 
DEPENDING 
DESCENDING 
DESTINATION 
DETAIL 
DISABLE 
DISPLAY 

DIVIDE 
DIVISION 

DOWN 
DUPLICATES 
DYNAMIC 


EGI 

ELSE 

EMI 

ENABLE 

END 

ENDING 
END-OF-PAGE 
ENTER 
ENVIRONMENT 
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EOP 

EQUAL 
ERROR 

KSI 

EVERY 
EXCEPTION 
EXHIBIT 
EXIT 
EXTEND 


FD 

FILE 
FILE-CONTROL 
FILE-ID 
FILLER 

FINAL 

FIRST 
FOOTING 

FOR 

FROM 
FUNCTION-KEYS 


GENERATE 
GIVING 

GO 
GREATER 
GROUP 


HEADING 
HIGH-VALUE 
HIGH-VALUES 


I-O 


I-O-CONTROL 
IDENTIFICATION 


INDEX-AREA 
INDEXED 
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INDICATE 
INDICES 
INITIAL 
INITIATE 
INPUT 
INPUT-OUTPUT 
INSPECT 
INSTALLATION 
INTO 

INVALID 

IS 


JUST 
JUSTIFIED 


KEY 


LABEL 

LAST 

LEADING 

LEFT 

LENGTH 

LESS 

LIMIT 

LIMITS 

LINAGE 
LINAGE-COUNTER 
LINE 
LINE-COUNTER 
LINES 
LINKAGE 

LOCK 
LOW-VALUE 
LOW-VALUES 


MEMORY 
MERGE 
MESSAGE 
MESSAGES 
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Reserved Words 


MODE 
MODULES 
MORE-LABELS 
MOVE 
MULTIPLE 
MULTIPLY 


NAMED 
NATIVE 
NEGATIVE 
NEXT 

NO 

NOT 
NUMBER 
NUMERIC 


OBJECT-COMPUTER 
OCCURS 

OF 

OFF 

OMITTED 

ON 

OPEN 
OPTIONAL 

OR 
ORGANIZATION 
OUTPUT 
OVERFLOW 


PAGE 
PAGE-COUNTER 
PASSWORD 
PERCENT 
PERFORM 

PF 

PH 

PIC 

PICTURE 

PLUS 


5/ 


Reserved Words 
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POINTER 
POSITION 
POSITIVE 
PRINTING 
PROCEDURE 
PROCEDURES 
PROCEED 
PROGRAM 
PROGRAM-ID 
PUBLIC 


QUEUE 
QUOTE 
QUOTES 


RANDOM 
RD 

READ 
READY 
RECEIVE 
RECORD 
RECORDS 
REDEFINES 
REEL 
REFERENCES 
RELATIVE 
RELEASE 
REMAINDER 
REMOVAL 
RENAMES 
REPLACING 
REPORT 
REPORTING 
REPORTS 
RERUN 
RESERVE 
RESET 
RETURN 
REVERSED 
REWIND 
REWRITE 


RF 

RH 

RIGHT 
ROUNDED 
RUN 


SAME 

SD 

SEARCH 
SECTION 
SECURITY 
SEGMENT 
SEGMENT-LIMIT 
SELECT 

SEND 
SENTENCE 
SEPARATE 
SEQUENCE 
SEQUENTIAL 
SET 

SIGN 

SIZE 

SORT 
SORT-FILE-SIZE 
SORT-MERGE 
SORT-MODE-SIZE 
SOURCE 
SOURCE-ALPHABET 
SOURCE-COMPUTER 
SPACE 

SPACES 
SPECIAL-NAMES 
SPECIFIC 
STANDARD 
STANDARD-0 
STANDARD-1 
START 

STATUS 

STOP 

STRING 
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SUB-QUEUE-1 
SUB-QUEUE-2 
SUB-QUEUE-3 
SUBTRACT 

SUM 

SUPPRESS 
SYMBOLIC 

SYNC 
SYNCHRONIZED 
SYSCHAN-n (n=1 thru 15) 
SYSCOM 
SYSCONSOLE 
SYSFORMAT 

SYSIN 

SYSIPT 

SYSLOG 

SYSLST 

SYSOPT 

SYSOUT 

SYSSCOPE 

SYSSWCH 

SYSWCH-n (n=0 thru 31) 
SYSTEM 
SYSTEM-SHUTDOWN 
SYSTERMINAL 
SYSWORK 


TABLE 
TALLYING 
TAPE 
TAPES 
TERMINAL 
TERMINATE 
TEXT 
THAN 
THEN 
THROUGH 
THRU 
TIME 
TIMES 

TO 
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Reserved Words 


TOP 

TRACE 
TRAILING 
TRANSFORM 
TYPE 


UNIT 
UNSTRING 
UNTIL 

UP 

UPON 
USAGE 
USE 
USING 


VALUE 
VALUES 
VARYING 
VERIFY 


WHEN 
WHEN-COMPILED 
WITH 

WORDS 
WORKING-STORAGE 
WRITE 


ZERO 
ZEROES 
ZEROS 


*DEBUG 
+ 


= 5 
tuav # * 
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PARAM Statement Options 


// PARAM COBL74,AXNON= {te} 
NO 


Suppresses nonreferenced entries in alphabetically ordered cross- 
reference listing 


// PARAM AXREF= { YES 
NO 


Specifies an alphabetically ordered cross-reference listing 


// PARAM CALLST= {YES 
Specifies static CALL of subprograms referenced by the literal option. 
YES indicates that subprograms named by the literal option of the 
CALL statements are to be linked with the main program. NO indicates 
that subprograms named either by the literal or identifier option of the 
CALL statements are to be dynamically loaded when called. 


// PARAM CMCS=name 


Specifies a 1- to 8-character module name of the COBOL 
communication control system. If this parameter is not specified for a 
COBOL communication program, a default name, consisting of 6 
characters of the PROGRAM-ID name (left-justified and zero-filled, if 
necessary) and a suffix of 2 characters (CM) is used. 
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PARAM Statement Options 


// PARAM CMCSST= {he } 
NO 


YES indicates that the CMCS module is bound with the COBOL object 
program. NO indicates that the CMCS module will be dynamically 
loaded at execution time. 


// PARAM CPYTXT= { YES 
NO 


Includes COBOL library text in source listing 
// PARAM DIAG= ng 
NO 
Specifies a diagnostic listing 
// PARAM DIAGWN= ong 
NO 


Includes warning diagnostics in the diagnostic listing 


// PARAM ERRFIL=module-name/lt fdname 


Specifies generation of an error-file element of compile-time diagnostics. 
The module-name is the 1- to 8-character module name of the element. 
The lfdname is the 1- to 8-character name of the MIRAM library where 
the element will be generated. The ERRFIL parameter is ignored unless 
the IN parameter is also specified. The error-file element is used by the 
OS/3 editor error file processing facility (@EFP commana). 
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PARAM Statement Options 


// PARAM FIPS= 


1 
2 
3 
4 
Specifies a FIPS PUB 21-1 flagging option. 


// PARAM IMSCOD= ng 
NO 


Specifies IMS compatible; i.e., COBOL programs are to be executed 
under control of IMS as action programs. When IMSCOD=YES is 
specified, the COBOL language elements restricted by IMS are flagged 
and deleted. 


// PARAM IN=m-n/f-n 


The m-n is a 1- to 8-character source module name in the library; f-n is a eS 
1- to 8-character LFD name identifying the file on which the source 
module resides. If f-n is omitted, the default name $Y$SRC is used. 


// PARAM LIN=filename/filename/ 


Filename is a 1- to 8-character LFD name identifying the file or files 
where the COPY library resides. A maximum of 10 LFD names can be 
specified, allowing multiple COPY libraries to be searched. If multiple 
LFD names are specified, they must be separated by stroke (/) 
characters. If the library-name is specified in the COPY statement, the 
library-name takes precedence. If the library-name is omitted, the 
filename(s) in the LIN parameter are used. Multiple filenames are 
searched sequentially in the order specified on the LIN parameter. If 
the parameter is omitted, the name COPY$ is used as the default name 
of the LIN parameter. 
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PARAM Statement Options 
// PARAM LIST= {YES 
NO 
® Specifies a source program listing. 
// PARAM LNKCON= feet 
NO 
Specifies generation or suppression of linker control statements in the 
object module 
// PARAM LSTREF= { YES 
NO 


Specifies a source listing with definition references 


& // PARAM LSTWTH=nnn 

Specifies the page width; nnn ranges from 120 through 160. Default 

value is 120 characters a line. 
// PARAM MAP= | 

NO 

Specifies an object program locator/map listing 
// PARAM MXNON= ng 
NO 


Suppresses nonreferenced entries in the map listing with cross- 
references 
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PARAM Statement Options 


// PARAM MXREF= { YES 
NO 





Specifies a map listing with cross-references 


// PARAM OBJ=filename 
Filename is a 1- to 8-character LFD name of the file on which the 


generated object module is to be stored. If the parameter is not 
specified, the default name $Y$RUN is used. 


// PARAM OBJLST= { YES 
NO 
Specifies an object program listing 


// PARAM OBJMOD= ng 
NO 





Specifies object module production 


// PARAM PAGOVF= | YES 
NO 


YES provides automatic printer page eject feature in the object 
program. NO indicates omission of the eject feature in the object 
program. PAGOVF=YES should not be specified if the LINAGE clause 
or the ADVANCING PAGE phrase is specified in the source program. 
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PARAM Statement Options 





// PARAM PROVER= | YES 
NO 


@ YES specifies the production of a listing of procedure-names and verbs 
with associated source line numbers and object program relative 
addresses. NO indicates suppression of the listing. 


// PARAM SIGNFX= {ro | 


Specifies that the compiler is to generate extra code to ensure a valid 
sign nibble for DISPLAY decimal (unpacked) fields used in MOVEs, 
numeric compares (other than IF NUMERIC), or arithmetic. DISPLAY 
decimal! fields containing SPACES are therefore treated as zeros. 


// PARAM SPRLST= { YES 
NO 


© Suppresses all listings unconditionally. This parameter overrides all 
other listing parameters. 


// PARAM SPROUT= { 1 | 
Suppresses compiler output (except source listing, diagnostic listing, 
and related options) when severity code level 1, 2, or 3 errors are 
encountered. 


// PARAM SUBCK= { YES 
NO 





Specifies range checking of subscripts and indices. When NO is 
specified, the results are unpredictable. 
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PARAM Statement Options 


// PARAM SYNCHK= { YES 
NO 


Specifies syntax check only on normal compilation. When 
SYNCHK=YES is specified, only the FIPS, LSTDTH, and LSTWTH 
parameters may be specified. A source program listing and a diagnostic 
listing are produced automatically by the compiler. 


// PARAM TRNADR= et 
NO 


YES indicates generation of a transfer address in the object module. NO 
indicates suppression of a transfer address, in which case, the program 
cannot be executed unless it is called. 


// PARAM TRUNC= el 
NO 


YES indicates that data truncation and detection of SIZE ERROR on 
binary items are based on the decimal digits specified in the PICTURE 
character-string. NO indicates that data truncation and detection are 
based on the actual storage size allocated to the items. 
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PARAM Statement Consistency Checks 





PARAM Statement Consistency Checks 


User Specifications Compiler Actions 





(continued) 
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PARAM Statement Consistency Checks 


(continued) 


User Specifications Compiler Actions 






roe [we [meme | wm 
eo [= [oe fe 
eo [= [mee fe 
me [owe 
me [oe [ee [oe 
me [oe fom fe 
me [ow [me | e 
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Jproc to Execute COBL74 Language Processor 


Jproc to Execute COBL74 Language Processor 


@ // Ttsource-module-name] {COBL74 PRNTR { N 
COBL74L lun} £,vol-ser-no] 
COBL74LG N 
28 


,IN= § (vol-ser-no, label ) ,LIN= { (vol -ser-no, label ) 


CRES) (RES, label) 
CRES, label) (RUN, Label) 
(RUN, Label) (*, Label) 
(*, Label) CRES SYSSRC) 


(RES, label) RES 
(RUN, Label) 

(*Label) 

‘CRUN  SYSRUND 


OBJ= { (vol -ser-no, Label) a | 


® 
a a 


RES RUN 


ee aie iene | 


,ALTLOD= ff (vol-ser-no, label) |{,option=speci fications) 
(RES, label) 
(RUN, label > 





een 


a ae 


C,ERRFIL=(vol -ser-no, label ,module-name)] 
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